home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / tubes.scp < prev    next >
Text File  |  1994-11-26  |  8KB  |  345 lines
  1. { LEAVETUBEROOM
  2.     P        ~ÇÇ            
  3.  
  4.     B         `Ç▓     
  5.  
  6.     // COMMENTED FOLLOWING OUT FOR STASIS REASONS. CALLING CODE MUST PUT
  7.     // LEX IN STASIS INSTEAD. - BAR
  8.  
  9.     // AI OFF
  10.  
  11.     // ENTER TUBE MOTION
  12.     u          CURFIG OFF
  13.     M      ENTER_GRAV FREEZE
  14.     
  15.     // LEAVETUBEROOMANIMATION
  16.     // WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
  17.     // WP 1->3 THEN WP 2->4
  18.     ~ÇÇ             = @Çì      GLOAWAYFROMTUBEROOM
  19.     
  20.     // SECTION 1 - COMING
  21.     C      TUB1
  22.     //CAMERAAUTOACTIVATE ZEG OFF
  23.     G  TUBE_WP1
  24.     £    TUBE_WP3
  25.     //SUSPENDWHILE @FIRE ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
  26.     
  27.     @Ç╢   ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG        
  28.     :SFX1
  29.     â      
  30.     I  @Ç▒              (CURFIG TUBE_WP2) <= 150 THEN @Çå   (`Ç▓     , 200, 2048)
  31.     E    J    #Çü  
  32.     W    10
  33.     
  34.     // SECTION 2 - GOING
  35.     C      TUB2
  36.     G  TUBE_WP2
  37.     £    TUBE_WP4
  38.     
  39.     @Çå   (`Ç▓     , 200, 2048) 
  40.                 @Ç╢   ZIPPY TUBE_WP2 TUBE_WP4 20 0 0 0 CARRY CURFIG
  41.  
  42.     u          CURFIG ON
  43.                ~ÇÇ            
  44.     C      UNLOCK
  45.     A  ON
  46. }
  47.  
  48. { GRENADELEAVETUBEROOM
  49.     P        ~ÇÇ            
  50.     P        ~Çü            
  51.     A  OFF
  52.  
  53.     B         `Ç▓     
  54.  
  55.     // ENTER TUBE MOTION
  56.     u          CURITEM OFF
  57.  
  58.     // LEAVETUBEROOMANIMATION
  59.     // WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
  60.     // WP 1->3 THEN WP 2->4
  61.     ~ÇÇ             = @Çì      GLOAWAYFROMTUBEROOM
  62.     // SECTION 1 - COMING
  63.     C      TUB1
  64.     f         WAYPT TUBE_WP1
  65.     
  66.     ~Çü             = @Ç╢   ZIPPY GREN_WP1 GREN_WP3 20 0 0 0 CARRY CURITEM
  67.  
  68.     // DON'T LET THE GRENADE BLOW UP OFF SCREEN (THE PLAYER WON'T KNOW WHAT
  69.     //    HAPPENED) -BES
  70.     ÿ              ^ìé              
  71.     W    2 SECONDS
  72.     // OKAY, THE GRENADE SHOULD BE ON SCREEN NOW, SO LET'S RESTART ITS TIMER -BES
  73.     Ö             ^ìé              
  74.  
  75.     // WAIT TO RUN SOUND EFFECT
  76.     :SFX1
  77.     â      
  78.     // IF THE GRENADE'S BLOWN UP, THEN SKIP THIS
  79.     I  @Çó            (^ìé              ) = $Ç╗    THEN J    #Çä     
  80.     I  @Ç▒              (CURITEM GREN_WP3) <= 100 THEN @Çå   (`Ç▓     , 255, -1024)
  81.     E    J    #Çâ 
  82.     :SKIP_SFX
  83.  
  84.     // WAIT TILL WE GET TO WAYPOINT
  85.                 ~Çü            
  86.  
  87.     // MAKE SURE IT DIDN'T BLOW UP ON TRANSIT
  88.     I  @ÇÜ            (GRENADE) = $Ç╗    THEN
  89.         J    #Çå  
  90.  
  91.     // SECTION 2 - GOING
  92.     C      TUB2
  93.     f         WAYPT GREN_WP2
  94.  
  95.     ~Çü             = @Ç╢   ZIPPY GREN_WP2 GREN_WP4 20 0 0 0 CARRY CURITEM
  96.  
  97.     ÿ              ^ìé              
  98.     W    10
  99.     Ö              ^ìé              
  100.  
  101.     // DON'T LET THE GRENADE BLOW UP IF ITS OUT OF SIGHT (THE PLAYER WILL
  102.     //   HAVE NO CLUE OF WHAT HAPPENED) -BES
  103.     W    1 SECOND
  104.                ^ìé              
  105.  
  106.     :SFX2
  107.     â      
  108.     I  @Ç▒              (CURITEM GREN_WP4) <= 100 THEN @Çå   (`Ç▓     , 255, -1024)
  109.     E    J    #Çà 
  110.  
  111.                 ~Çü            
  112.  
  113.     I  @ÇÜ            (GRENADE) THEN
  114.         u          CURITEM ON
  115.  
  116.     :LEAVE
  117.                ~ÇÇ            
  118.     C      UNLOCK
  119.     A  ON
  120. }
  121.  
  122. { TUBETOTMPVSGRENADE
  123.     P        ~ÇÇ            
  124.     P        ~Çü            
  125.     P        ~Çé  
  126.     P        ~Çâ  
  127.  
  128.     A  OFF
  129.  
  130.     B         `Ç▓     
  131.  
  132.     // ENTER TUBE MOTION
  133.     u          CURFIG OFF
  134.     M      ENTER_GRAV FREEZE
  135.     
  136.     I  @ÇÜ            (GRENADE) = $Ç╗    THEN
  137.         e          GRENADE
  138.     E   
  139.                    ^ìé              
  140.  
  141.     // DON'T LET ANYTHING INTERFERE WITH WHAT WE'RE DOING
  142.                ^ìà            
  143.  
  144.     // SHOW MARINE TOSSING GRENADE DOWN
  145.     C      TMP1
  146.     I  @Ç¢              (TMP_MAR_2) = $Ç╗    THEN
  147.         {
  148.         Q       "Can't find Tmp_Mar_2!" // DO NOT TRANSLATE
  149.         é     
  150.         }
  151.  
  152.     A  OFF
  153.     o         
  154.     £    TUBE
  155.     M      REMOVE_BATT
  156.     ñ            CURITEM
  157.     u          CURITEM ON
  158.     f         RTHAND
  159.  
  160.     // THROW THE GRENADE
  161.     M      GRENADE_TOSS
  162.     ~Çé   = @üé       (CURITEM)
  163.     ~Çâ   = @üâ       (CURITEM)
  164.  
  165.     // WAIT FOR GRENADE TO HIT TUBE
  166.     :TOP
  167.     â      
  168.     I  @üé       (CURITEM) == ~Çé   AND @üâ       (CURITEM) == ~Çâ   THEN
  169.         J    #Çê
  170.  
  171.     ñ            CURITEM
  172.     @Ç¢               PLAYER
  173.     u          CURITEM OFF
  174.  
  175.     // LEAVETUBEROOMANIMATION
  176.     // WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
  177.     // WP 1->3 THEN WP 2->4
  178.     ~ÇÇ             = @Çì      GLOAWAYFROMTUBEROOM
  179.     // SECTION 1 - COMING
  180.     C      TUB1
  181.     G  TUBE_WP1
  182.     £    TUBE_WP3
  183.     //SUSPENDWHILE @FIRE ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
  184.     
  185.     ~Çü             = @Ç╢   ZIPPY TUBE_WP1 TUBE_WP3 20 0 0 0 CARRY CURFIG
  186.     :SFX1
  187.     â      
  188.     I  @Ç▒              (CURFIG TUBE_WP3) <= 200 THEN @Çå   (`Ç▓     , 200, 2048) 
  189.     E    J    #Çë 
  190.                 ~Çü            
  191.  
  192.     // GET RID OF THE PLAYER
  193.     @Ç¢               PLAYER
  194.     G  TO_TMPL
  195.  
  196.     // SECTION 2 - COMING
  197.                ~ÇÇ            
  198.     ~ÇÇ             = @Çì      GLOTWORDTUBEROOM
  199.     C      TUB2
  200.     f         WAYPT GREN_WP4
  201.     //SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURITEM
  202.     
  203.     @Ç╢   ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
  204.     :SFX2
  205.     â      
  206.     I  @Ç▒              (CURITEM GREN_WP2) <= 200 THEN @Çå   (`Ç▓     , 255, -1024) 
  207.     E    J    #Çè 
  208.     
  209.     // SHOW EXPLOSION
  210.     // MAKE SURE WE CAN HERE WHAT'S GOING ON
  211.     d            
  212.     @Çå   ( `Çó         )
  213.     Ü             10 10 10 5
  214.     â      
  215.     Ü             20 20 20 5
  216.     â      
  217.     Ü             30 30 30 5
  218.     â      
  219.     @Çå   ( `ÇÑ         )
  220.     Ü             40 40 40 5
  221.     â      
  222.     Ü             50 50 50 5
  223.     â      
  224.     Ü             60 60 60 5
  225.     â      
  226.     Ü             64 64 64 5
  227.  
  228.     //COLLISIONS CURFIG ON
  229.     //KILLPROCESS _PROCESS_HANDLE
  230.     //CAMERA UNLOCK
  231.  
  232.     @Ç¥   KILLLEX
  233. }
  234.  
  235. { GLOAWAYFROMTUBEROOM
  236.     ^é╜        = 0
  237.  
  238.     :LOOP
  239.         W    05
  240.         ^é╜        ++
  241.         I  (^é╜        > $âò           ) THEN
  242.             ^é╜        = 0
  243.     J    #Çî 
  244. }
  245.  
  246. { ENTERTUBEROOM _NO_ENTER_MOTION
  247.     P        ~Çü            
  248.  
  249. //  COMMENTED FOLLOWING OUT SINCE IT IS CAUSING STASIS BUGS. FORCE ALL
  250. //  CALLING CODE ROUTINES TO ALREADY TURN AI OFF. - BAR
  251.  
  252. //      AI OFF
  253.  
  254.     B         `Ç▓     
  255.  
  256.     // ENTER TUBE MOTION
  257.     u          CURFIG OFF
  258.     o               // IN CASE CONFLICT WITH STARTING NEW ONE
  259.  
  260.     I  ~ÇÇ              THEN
  261.         {
  262.         M      ENTER_GRAV FREEZE SNAP_TO CONTINUE
  263.         }
  264.     E   
  265.         {
  266.         â      
  267.         M      ENTER_GRAV FREEZE
  268.         }
  269.  
  270.  
  271.     // LEAVETUBEROOMANIMATION
  272.     // WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
  273.     // WP 1->3 THEN WP 2->4
  274.     ~Çü             = @Çì      GLOTWORDTUBEROOM
  275.     // SECTION 2 - COMING
  276.     C      TUB2
  277.     G  TUBE_WP4
  278.     £    TUBE_WP2
  279.     //SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURFIG
  280.     
  281.     @Ç╢   ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURFIG
  282.     :SFX1
  283.     â      
  284.     I  @Ç▒              (CURFIG TUBE_WP2) <= 200 THEN @Çå   (`Ç▓     , 200, 2048) 
  285.     E    J    #ÇÄ 
  286.     
  287.     // SECTION 1 - GOING
  288.     C      TUB1
  289.     G  TUBE_WP3
  290.     £    TUBE_WP1
  291.     @Çå   (`Ç▓     , 200, 2048)
  292.                 @Ç╢   ZIPPY TUBE_WP3 TUBE_WP1 20 0 0 0 CARRY CURFIG
  293.     
  294.     u          CURFIG ON
  295.                ~Çü            
  296.     C      UNLOCK
  297. }
  298.  
  299. { GRENADEENTERTUBEROOM
  300.     P        ~ÇÇ            
  301.     // ENTER TUBE MOTION
  302.     u          CURITEM OFF
  303.  
  304.     B         `Ç▓     
  305.  
  306.     // LEAVETUBEROOMANIMATION
  307.     // WAYPOINTS (WP) ARE IN SPATIAL ORDER (NOT ORDER REACHED)
  308.     // WP 1->3 THEN WP 2->4
  309.     ~ÇÇ             = @Çì      GLOTWORDTUBEROOM
  310.     // SECTION 2 - COMING
  311.     C      TUB2
  312.     f         WAYPT GREN_WP4
  313.     //SUSPENDWHILE @FIRE ZIPPY TUBE_WP4 TUBE_WP2 20 0 0 0 CARRY CURITEM
  314.  
  315.     @Ç╢   ZIPPY GREN_WP4 GREN_WP2 20 0 0 0 CARRY CURITEM
  316.     :SFX1
  317.     â      
  318.     I  @Ç▒              (CURITEM GREN_WP2) <= 200 THEN @Çå   (`Ç▓     , 255, -1024)
  319.     E    J    #ÇÉ 
  320.  
  321.     // SECTION 1 - GOING
  322.     C      TUB1
  323.     f         WAYPT GREN_WP3
  324.  
  325.     @Çå   (`Ç▓     , 255, -1024)
  326.                 @Ç╢   ZIPPY GREN_WP3 GREN_WP1 20 0 0 0 CARRY CURITEM
  327.  
  328.     u          CURITEM ON
  329.                ~ÇÇ            
  330.     C      UNLOCK
  331. }
  332.  
  333. { GLOTWORDTUBEROOM
  334.     ^é╜        = $âò           
  335.  
  336.     :LOOP
  337.         W    05
  338.         ^é╜        --
  339.         I  (^é╜        < 0) THEN
  340.             ^é╜        = 0
  341.     J    #ÇÆ 
  342. }
  343.  
  344. //$ 26 - version number
  345.